home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 8 / Tiger_Disk_008_19xx_Tiger-Crew-Disk_de_Side_B.d64 / demo zum tip (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  41 lines
  1. 100 poke53281,11:poke53280,11:poke646,15
  2. 110 print"[147]"
  3. 120 print" du musst dir jetzt mal vorstellen,"
  4. 130 print"dass du gerade in einem programm bist,"
  5. 140 print"das eine eingabe von dir erwartet."
  6. 150 print"(soviel phantasie trau ich dir zu...)"
  7. 160 print"da unten wartet der cursor, aber du hast"
  8. 170 print"grad keine ahnung, was du an der stelle"
  9. 180 print"machen sollst. - ergo: du drueckst   ?[146]"
  10. 190 print""
  11. 200 w1=peek(214):w2=peek(211)
  12. 210 poke214,w1:poke211,w2:sys58640
  13. 220 poke204,0:print" (eingabe): ";
  14. 225 geta$:ifa$=""then225
  15. 230 poke204,128:printa$:ifa$="?"then gosub260:goto210
  16. 239 a=asc(a$):ifa>132anda<137then241
  17. 240 gosub300:print"[147]dies is doch nur ein test!":poke198,0:wait198,1:poke198,0:goto110
  18. 241 ifb=1thenb=0:gosub300:fort=1to1000:next:rem diese zeile kann bei >280< entfallen
  19. 245 ona-132gosub800,400,500,600
  20. 250 goto110
  21. 260 k=49152:l=40:m=1068:n=11
  22. 270 forj=0to5:fori=0to10:pokek+(j*n)+i,peek(m+(l*j)+i):nexti,j
  23. 280 gosub320 : return : rem  hier kann's auch mit zeile 300 weitergehen...
  24. 300 forj=0to5:fori=0to10:pokem+(l*j)+i,peek(k+(j*n)+i):nexti,j
  25. 310 return
  26. 320 print"":print"[176][195][195][195][195][195][195][195][195][195][174]"
  27. 330 print"[194]f1 = ende[194]"
  28. 340 print"[194]f3 = menu[194]"
  29. 350 print"[194]f5 = info[194]"
  30. 360 print"[194]f7 = save[194]"
  31. 370 print"[173][195][195][195][195][195][195][195][195][195][189]"
  32. 380 b=1:return
  33. 400 print"[147]  hier waere man beim 'menue'..."
  34. 410 gosub700:return
  35. 500 print"[147]  hier waere man beim 'programm-info'..."
  36. 510 gosub700:return
  37. 600 print"[147]  hier waere man beim 'disk-menue'..."
  38. 610 gosub700:return
  39. 700 poke198,0:wait198,1:poke198,0:return
  40. 800 print"[147]   und hier is schluss !":end
  41.